Software of the Month Club (Business) 1997 July/Software of the Month Club - Business (Volume 239) (July 1997).iso/pc/code/shared.dxr/04468_Initializations.ls

Text File | 1996-02-21 | 8.3 KB | 218 lines

global gObjectsA, gObjectsB, gObjectsC, gObjectsD, gObjectsE, gObjectsF, gObjectsG, gObjectsH, gWorld, gStates, gOBJECTS, gHotRects, gScreenState, gCursorList, gTimerList, gHitMaps, gPuppetlines, gKeyRef, cNullCast, cNullQTmovie, NULLRECT, gSpritePropTypes, gQTproplist, cNUllCharmovie, sPICTSPRITE, sQTSPRITE, sCURSORSPRITE, sCPSprite, sQTCharSprite, gUnvObjects, void, gAngles, gLastCursor, gPlayingQT, gCursorPresent, gScreenWidth, gScreenHeight, gCurKeyList, gTransMovieName, gAnimationObjects, gDeathRow, gLastKeyList, gKeyFrameSound, gEnvironmentSound, gKeyFrameSoundMode, gKeyExitSound, gHaveNavs, gNextEnvLetter, gNextDIRFile, gMIDIPlayTRUE, gInitalized, noteObjs, windowsMIDIXObj, xNAVXOBJ, xCURXOBJ, gCPU, gfileSep, gRootPath, gHDpath, gXobjs, gXOBJPath, gGlobal, gCDpath, gCDName, gSoundChannels, gsoundLevel, savedFilesPath, miscXobj, gCodePath, IOerrors, gNoPreLoadRefNames, gLimitPreLoad, gdirtyGame

on BuildDisc
  StoreObjectWorlds()
end

on reBuild
  OneTimeInitalizations(#true)
end

on StartUpInitalizations
  if voidp(gfileSep) then
    setUpIndevelopment()
  end if
  InitXOBJs()
  InitglobalConstants()
  InitSystemVars()
end

on OneTimeInitalizations Build
  InitgWorlds()
  InitgObjects()
  initAmbientSound()
  initAnimEngine()
  initNoPreLoadList()
  if Build = #true then
    InitUnCompiledOBJs()
  end if
  InittheTimer()
  set gInitalized to #true
  set letter to value("#" & char 1 of the movieName)
  set gKeyRef to getaProp(getaProp(gStates, #EnviroLOC), letter)
  set gLastKeyList to getaProp(gWorld, #trans)
  set gCurKeyList to getaProp(gWorld, gKeyRef)
end

on initNoPreLoadList
  if gLimitPreLoad = 1 then
    set gNoPreLoadRefNames to value(field "noPreLoadList")
    sort(gNoPreLoadRefNames)
  else
    set gNoPreLoadRefNames to []
  end if
end

on setUpIndevelopment
  if the machineType = 256 then
    set gCPU to #mpc
    set gfileSep to "\"
  else
    set cpu to #MAC
    set gfileSep to ":"
    set gCDpath to "Chaos:"
  end if
  set gCodePath to string(gCDpath & "CODE" & gfileSep)
end

on InitgWorlds
  RebuildgWorld()
end

on InitgObjects
  RebuildgOBjects(15)
  InitgStates()
end

on InitglobalConstants
  set gMIDIPlayTRUE to #false
  set gPuppetlines to [#objects: []]
  sort(gPuppetlines)
  set gHaveNavs to #true
  set gCursorPresent to #false
  set gHitMaps to [:]
  sort(gHitMaps)
  set gHotRects to [:]
  sort(gHotRects)
  set gLastKeyList to [:]
  set gScreenState to [:]
  sort(gScreenState)
  set gSoundChannels to [:]
  sort(gSoundChannels)
  set gGlobal to 0
  set gsoundLevel to the soundLevel
  set gWorld to [:]
  sort(gWorld)
  set NULLRECT to rect(0, 0, 0, 0)
  set gScreenWidth to 560
  set gScreenHeight to 336
  InitCursorOBJ()
  set sPICTSPRITE to 1
  set sQTCharSprite to 36
  set sCPSprite to 46
  set sCURSORSPRITE to 47
  set sQTSPRITE to 48
  set cNullCast to the number of cast "cNullSprite"
  set cNullQTmovie to the number of cast "QTPlaceholder"
  set cNUllCharmovie to the number of cast "QTCharPlaceHolder"
  if voidp(gLimitPreLoad) then
    set gLimitPreLoad to 0
  end if
  set gdirtyGame to 0
  InitDefaultSpriteProp()
  initdefaultQTProp()
  set gUnvObjects to [#PDAObj, #TubeObj, #Leaf2Obj, #Leaf1Obj, #BagObj, #SeedObj, #MapObj, #CDObj, #SaveOBj, #Volumeobj, #syrnObj]
  InitgStates()
end

on InitgStates
  set DynamicStates to []
  sort(DynamicStates)
  set BeenThere to [:]
  sort(BeenThere)
  set gStates to [#EnviroLetter: #empty, #Credits: -37, #Debt: 10075, #EnviroLOC: [#A: #A03, #B: #B01, #C: #C01, #D: #D04, #E: #E01, #F: #F01, #G: #G03, #H: #H01], #BeenThere: BeenThere, #Dynamic: DynamicStates, #Conditions: [#Trailer: 0, #WeatherControl: 0, #Weather: 0, #Instruments: 0, #radioStation: 0, #Coast: 0, #forest: 0, #shortStock: 0, #Defibrillate: 0, #JenkinsLeaf: 0, #Microscope: 0, #Heart: 0, #longStock: 0], #gCurrentGameName: #virgin]
  sort(gStates)
end

on InitDefaultSpriteProp
  set gSpritePropTypes to [#type: [#script: "the type of sprite", #DeFault: 1], #backcolor: [#script: "the Backcolor of sprite", #DeFault: 0], #forecolor: [#script: "the ForeColor of sprite", #DeFault: 255], #trails: [#script: "the trails of sprite", #DeFault: 0], #stretch: [#script: "the stretch of sprite", #DeFault: 0], #ink: [#script: "the ink of sprite", #DeFault: 36], #blend: [#script: "the blend of sprite", #DeFault: 100], #rect: [#script: "the rect of sprite", #DeFault: rect(0, 0, 0, 0)], #visible: [#script: "the visible of sprite", #DeFault: 1]]
  sort(gSpritePropTypes)
end

on initdefaultQTProp
  set QTSprite to sQTCharSprite
  set QTcast to cNUllCharmovie
  set gQTproplist to [#center: [#script: "the center of cast", #CastSprite: QTSprite, #DeFault: 0], #controller: [#script: "the controller of cast", #CastSprite: QTcast, #DeFault: 0], #crop: [#script: "the crop of cast", #CastSprite: QTcast, #DeFault: 0], #directToStage: [#script: "the directToStage of cast", #CastSprite: QTcast, #DeFault: 1], #loop: [#script: "the loop of cast", #CastSprite: QTcast, #DeFault: 0], #pausedAtStart: [#script: "the pausedAtStart of cast", #CastSprite: QTcast, #DeFault: 0], #volume: [#script: "the volume of sprite", #CastSprite: QTSprite, #DeFault: 255], #movieTime: [#script: "the movieTime of sprite", #CastSprite: QTSprite, #DeFault: 0], #movieRate: [#script: "the movieRate of sprite", #CastSprite: QTSprite, #DeFault: 0], #preLoad: [#script: "the preLoad of cast", #CastSprite: QTcast, #DeFault: 0], #sound: [#script: "the sound of cast", #CastSprite: QTcast, #DeFault: 1], #video: [#script: "the video of cast", #CastSprite: QTcast, #DeFault: 1], #startTime: [#script: "the startTime of sprite", #CastSprite: QTSprite, #DeFault: 0], #stopTime: [#script: "the stopTime of sprite", #CastSprite: QTSprite, #DeFault: 0]]
  sort(gQTproplist)
end

on initAnimEngine
  if not voidp(gAnimationObjects) then
    repeat with obj in gAnimationObjects
      death(obj)
    end repeat
  end if
  set gAnimationObjects to [:]
  sort(gAnimationObjects)
  set gDeathRow to []
end

on InitCursorOBJ
  set gLastCursor to 4548
  set gCursorList to [#NAV: [[4550, 4551], [4552, 4553], [4554, 4555], [4556, 4557], [4558, 4559], [4560, 4561], [4562, 4563], [4564, 4565], [4548, 4549]], #Pointer: [4535, 4536], #Grab: [4537, 4538], #NullCursor: [4548, 4549], #Hand: [4539, 4540], #Mnote: [4542, 4543]]
end

on InitSystemVars
  set IOerrors to [33: "File directory full", 34: "Volume full", 35: "Volume not found", 36: "I/O Error", 37: "Bad file name", 38: "File not open", 42: "Too many files open", 43: "File not found", 48: "Can not write file over an existing folder", 49: "File open with write permission", 56: "No such drive", 65: "No disk in drive", 120: "Directory not found"]
  if gCPU = #mpc then
    set extension to ".dll"
  else
    set extension to EMPTY
  end if
  set miscXobj to Misc_X(mnew)
  if gCPU = #MAC then
    set savedFilesPath to miscXobj(mSystemFolder) & "Preferences:Chaos"
  else
    set savedFilesPath to miscXobj(mWindowsDirectory) & "Chaos"
  end if
  set savedPathExist to miscXobj(mFolderExists, savedFilesPath)
  if not savedPathExist then
    set theResult to miscXobj(mInsureFolder, savedFilesPath & gfileSep)
    if theResult <> 0 then
      displayChaosError(#severe, "Problem creating Saved Files folder" && savedFilesPath)
    end if
  end if
end

on savedGamesExist
  set nameList to savedGameNames()
  if count(nameList) > 0 then
    return 1
  else
    setaProp(gStates, #gCurrentGameName, #virgin)
    return 0
  end if
end

on savedGameNames
  if voidp(savedFilesPath) then
    InitSystemVars()
  end if
  set theNames to []
  if gCPU = #MAC then
    repeat with fileNumber = 1 to the maxinteger
      set theFileName to getNthFileNameInFolder(savedFilesPath, fileNumber)
      if theFileName <> EMPTY then
        add(theNames, getNthFileNameInFolder(savedFilesPath, fileNumber))
        next repeat
      end if
      exit repeat
    end repeat
  else
    repeat with fileNumber = 1 to the maxinteger
      set theFileName to getNthFileNameInFolder(savedFilesPath, fileNumber)
      if (theFileName <> EMPTY) and (theFileName contains saveDataType()) then
        add(theNames, getNthFileNameInFolder(savedFilesPath, fileNumber))
        next repeat
      end if
      if theFileName = EMPTY then
        exit repeat
      end if
    end repeat
  end if
  sort(theNames)
  return theNames
end

on initAmbientSound
  set gKeyFrameSound to #noEnter
  set gEnvironmentSound to #empty
  set gKeyFrameSoundMode to #KFSOUND
  setSoundVolumes()
end

on ResetGlobals
  CloseUniversalXOBJs()
  clearGlobals()
end